
TRIGGER PROCEDURE FOR WRITE OF abs_mstr OLD BUFFER OLD_ABS_MSTR.


{mfdeclre.i }
define new shared work-table wf_old_abs_mstr like abs_mstr.

/* fdn 2004/10/28 Modify Record processing */
HK:
do:
    if can-find(first dt_mstr where dt_table = "abs_mstr" and dt_type = "SYNC") then
        run CreateSyncFlag(input "MOD", input recid(abs_mstr), input "abs_mstr").

    if not can-find ( first dt_mstr where dt_table = "abs_mstr" and dt_type = "MOD" ) then leave HK.
    
    if not can-find ( first wf_old_abs_mstr ) then do:
        create wf_old_abs_mstr.
        if recid(wf_old_abs_mstr)= -1 then .
    end.
    
    buffer-copy old_abs_mstr to wf_old_abs_mstr no-error.

    for each dt_mstr no-lock where dt_table = "abs_mstr" and dt_type = "MOD" :
    
        case dt_field :

            when "abs_shipfrom" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_shipfrom, input abs_mstr.abs_shipfrom,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_id" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_id, input abs_mstr.abs_id,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_par_id" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_par_id, input abs_mstr.abs_par_id,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_shipto" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_shipto, input abs_mstr.abs_shipto,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_type" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_type, input abs_mstr.abs_type,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_status" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_status, input abs_mstr.abs_status,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_timezone" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_timezone, input abs_mstr.abs_timezone,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_shp_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_shp_date), input string(abs_mstr.abs_shp_date),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_shp_time" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_shp_time), input string(abs_mstr.abs_shp_time),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_arr_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_arr_date), input string(abs_mstr.abs_arr_date),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_arr_time" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_arr_time), input string(abs_mstr.abs_arr_time),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_crt_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_crt_date), input string(abs_mstr.abs_crt_date),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_crt_time" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_crt_time), input string(abs_mstr.abs_crt_time),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_apr_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_apr_date), input string(abs_mstr.abs_apr_date),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_apr_time" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_apr_time), input string(abs_mstr.abs_apr_time),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_apr_userid" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_apr_userid, input abs_mstr.abs_apr_userid,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_gwt" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_gwt), input string(abs_mstr.abs_gwt),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_nwt" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_nwt), input string(abs_mstr.abs_nwt),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_vol" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_vol), input string(abs_mstr.abs_vol),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_wt_um" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_wt_um, input abs_mstr.abs_wt_um,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_vol_um" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_vol_um, input abs_mstr.abs_vol_um,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_dim_um" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_dim_um, input abs_mstr.abs_dim_um,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_fr_class" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_fr_class, input abs_mstr.abs_fr_class,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_est_fcst" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_est_fcst), input string(abs_mstr.abs_est_fcst),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_act_fcst" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_act_fcst), input string(abs_mstr.abs_act_fcst),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_fr_curr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_fr_curr, input abs_mstr.abs_fr_curr,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_doc_data[1]" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_doc_data[1], input abs_mstr.abs_doc_data[1],
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_dataset" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_dataset, input abs_mstr.abs_dataset,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_order" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_order, input abs_mstr.abs_order,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_line" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_line, input abs_mstr.abs_line,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_inv_nbr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_inv_nbr, input abs_mstr.abs_inv_nbr,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_item" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_item, input abs_mstr.abs_item,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_lotser" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_lotser, input abs_mstr.abs_lotser,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_ref" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_ref, input abs_mstr.abs_ref,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_qty" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_qty), input string(abs_mstr.abs_qty),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_ship_qty" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_ship_qty), input string(abs_mstr.abs_ship_qty),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_cum_qty" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_cum_qty), input string(abs_mstr.abs_cum_qty),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_site" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_site, input abs_mstr.abs_site,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_loc" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_loc, input abs_mstr.abs_loc,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_cust_ref" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_cust_ref, input abs_mstr.abs_cust_ref,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_cmtindx" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_cmtindx), input string(abs_mstr.abs_cmtindx),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr01, input abs_mstr.abs__chr01,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr02, input abs_mstr.abs__chr02,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr03" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr03, input abs_mstr.abs__chr03,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr04" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr04, input abs_mstr.abs__chr04,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr05" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr05, input abs_mstr.abs__chr05,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr06" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr06, input abs_mstr.abs__chr06,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr07" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr07, input abs_mstr.abs__chr07,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr08" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr08, input abs_mstr.abs__chr08,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr09" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr09, input abs_mstr.abs__chr09,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__chr10" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__chr10, input abs_mstr.abs__chr10,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec01), input string(abs_mstr.abs__dec01),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec02), input string(abs_mstr.abs__dec02),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec03" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec03), input string(abs_mstr.abs__dec03),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec04" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec04), input string(abs_mstr.abs__dec04),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec05" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec05), input string(abs_mstr.abs__dec05),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec06" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec06), input string(abs_mstr.abs__dec06),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec07" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec07), input string(abs_mstr.abs__dec07),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec08" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec08), input string(abs_mstr.abs__dec08),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec09" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec09), input string(abs_mstr.abs__dec09),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__dec10" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__dec10), input string(abs_mstr.abs__dec10),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad01, input abs_mstr.abs__qad01,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad02, input abs_mstr.abs__qad02,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad03" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad03, input abs_mstr.abs__qad03,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad04" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad04, input abs_mstr.abs__qad04,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad05" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad05, input abs_mstr.abs__qad05,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad06" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad06, input abs_mstr.abs__qad06,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad07" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad07, input abs_mstr.abs__qad07,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad08" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad08, input abs_mstr.abs__qad08,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad09" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad09, input abs_mstr.abs__qad09,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qad10" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qad10, input abs_mstr.abs__qad10,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_user1" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_user1, input abs_mstr.abs_user1,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_user2" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_user2, input abs_mstr.abs_user2,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_master_id" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_master_id, input abs_mstr.abs_master_id,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_inv_mov" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_inv_mov, input abs_mstr.abs_inv_mov,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_nr_id" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_nr_id, input abs_mstr.abs_nr_id,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_format" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_format, input abs_mstr.abs_format,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_cons_ship" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_cons_ship, input abs_mstr.abs_cons_ship,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qadc01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs__qadc01, input abs_mstr.abs__qadc01,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_lang" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_lang, input abs_mstr.abs_lang,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_canceled" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_canceled), input string(abs_mstr.abs_canceled),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs__qadd01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs__qadd01), input string(abs_mstr.abs__qadd01),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_trl_cmtindx" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_trl_cmtindx), input string(abs_mstr.abs_trl_cmtindx),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_eff_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_eff_date), input string(abs_mstr.abs_eff_date),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_cancel_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_cancel_date), input string(abs_mstr.abs_cancel_date),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_preship_nr_id" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_preship_nr_id, input abs_mstr.abs_preship_nr_id,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_preship_id" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_preship_id, input abs_mstr.abs_preship_id,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_fa_lot" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_fa_lot, input abs_mstr.abs_fa_lot,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_asn_crt_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_asn_crt_date), input string(abs_mstr.abs_asn_crt_date),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_asn_crt_time" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_asn_crt_time), input string(abs_mstr.abs_asn_crt_time),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_export_batch" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_export_batch), input string(abs_mstr.abs_export_batch),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_export_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_export_date), input string(abs_mstr.abs_export_date),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_export_time" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_export_time), input string(abs_mstr.abs_export_time),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_charge_type" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_charge_type, input abs_mstr.abs_charge_type,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_price" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_abs_mstr.abs_price), input string(abs_mstr.abs_price),
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_desc" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_desc, input abs_mstr.abs_desc,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

            when "abs_master_shipfrom" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_abs_mstr.abs_master_shipfrom, input abs_mstr.abs_master_shipfrom,
                    input recid(abs_mstr), input abs_mstr.abs_shipfrom, input abs_mstr.abs_id, input "", input "",
                    input "", input "", input "", input "").

        end.

    end.
end.

{hkdttrans.i}
